home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1996 #3
/
AmigaPlus_CD-ROM-EXTRA_Nr.3.bin
/
aminet-spiele
/
zwei spieler
/
hf disk1
/
diskinvaihto.amos
/
diskinvaihto.amosSourceCode
Wrap
AMOS Source Code
|
1993-03-08
|
657b
|
31 lines
Load "HF1:DiskinVaihto1.Abk"
Open In 1,"Hf1:HFlatauskuva diskinv.anim8"
L=Frame Length(1,999)
A=Frame Load(1 To 6,999)
Screen Open 1,320,256,4096,Lowres
B=Frame Play(6,1,1)
Double Buffer
Hide
Screen Open 2,320,50,8,Lowres : Cls 0 : Flash Off : Hide
Screen Display 2,,240,,
Get Sprite Palette
Screen 1
Close 1
Autoback 0
Update Off
Screen To Front 2
While Not Exist("HF2:")
SEURAAVA=Frame Play(6,1)
If AB=0 Then Screen 2 : Bob 0,155,30,1 : Bob Update : AB=1 : Screen 1
For COUNTER=2 To A-1
SEURAAVA=Frame Play(SEURAAVA,1)
Screen Swap
Wait Frame Param+3
Next COUNTER
Wend
Bob Off
Screen Close 1
Screen Close 2
Erase All